home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / wtjmarch.zip / DEBUGWIN.ZIP / DWCALL.PAS < prev    next >
Pascal/Delphi Source File  |  1992-02-21  |  920b  |  29 lines
  1. LISTING 3: DWCALL.PAS
  2. Include this unit in your Turbo Pascal for Windows program to take advantage of DebugWin.
  3.  
  4. unit dwCall;
  5.   {-Unit used to interface with DebugWin via DWDLL.DLL}
  6.  
  7. interface
  8.  
  9.   procedure dwSendMessage(Msg, wParam : Word; lParam : LongInt);
  10.     {-Send a message to DebugWin}
  11.   procedure dwWriteBuf(Msg : PChar; Count : Word);
  12.     {-Send Msg to DebugWin. Count is length of Msg^.}
  13.   procedure dwWrite(Msg : PChar);
  14.     {-Send Msg to DebugWin}
  15.   procedure dwWriteLn(Msg : PChar);
  16.     {-Send Msg to DebugWin and append CRLF}
  17.   procedure dwWriteChar(Ch : Char);
  18.     {-Send Ch to DebugWin}
  19.  
  20. implementation
  21.  
  22.   procedure dwSendMessage; external 'DWDLL' index 1;
  23.   procedure dwWriteBuf;    external 'DWDLL' index 2;
  24.   procedure dwWrite;       external 'DWDLL' index 3;
  25.   procedure dwWriteLn;     external 'DWDLL' index 4;
  26.   procedure dwWriteChar;   external 'DWDLL' index 5;
  27.  
  28. end.
  29.